RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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**F ILE**1D**FOOOUT 


-Sep-1 


1 ZTITLE seerveras outputting, of pyetnetes: 


MODULE fooout ( 
tert LISS32C, ADDRESSING_MODE conver NAL G_RELATIVE 


= LON 
ONEXTERNAL = LONG: “RELATIVES J 


Oooo 


ba ued 

‘Bass | 4 

; 5 $8? )s 

pS. oof jh 

: 3 One | lenateneenanententenenentenennnrnereetrernettetreetnntnnennntnenenereetentens 
; :* « 
; 010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 11 011 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; \§ og } i; ALL RIGHTS RESERVED. * 
; ; ca 
; 14 0014 1 !* ae SOF TWARE 1 FURNISHED UNDER A LICENSE AND MAY BE USED AND gt * 
; 15 0015 1 !* Y IN ACCORDANCE WITH THE fe OF SUCH Tats AND WITH THE * 
: 16 8549 1 I ONCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 17 001 1 !® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 18 318 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; i 836 : . TRANSFERRED. * 
; ; Y 
: 1 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; § B0S§ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; i 4 i ! i. CORPORATION. * 
Py ; t 
; $ 8 5 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 26 026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3 sf 0027 1 ! * 
3 8 0028 1 !* S 
3 50 8 4 : Sateen aici ten adnan 
: 31 0031 1 i++ 

; $ O08 ! FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

; : OoRe : ; ABSTRACT: Puts out footnotes. 

; $ 0036 ; ENVIRONMENT: Transportable 

; 4 43. 1 | AUTHOR: R.W. Friday CREATION DATE: September, 1978 

; 39 0039 1 


performs outputting of footnotes Ts -Sep-1984 3: AX-11 Bliss-32 V4.0-74 
° 4 198 99: a 38 RUNOFF .SRCJFOONUT.BLI; 
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ig T erforms outputting of footnotes 1b-3¢ -1984 00:33: AX-11 Bliss-32 V4.0-74 Page 2 

v04=000 Revision Wistory = eet) a yo ET TT I 25 

; 41 40 1 ZSBTTL ‘Revision History’ ; 
i 4g 4] 1 | MODIFIED BY: : 
i 4 O43 1 | 012 —- REROOO12 Ron Randall 13-Apr-1983 | ; 
: 46 045 1! : 
Sie bee 1! 011 REROOO11 Ron Randall 06-Apr-1983 ; 
; 648 Boe 1! For DSRPLUS: : 
; r+ Bpe8 : For numbered footnotes, a Line of dashes is output first. . 
: 51 , 0050 1 i 010 REROOO10 Ron Randall 07-Mar-1983 : 
: 26 0051 1! Global edit of all modules. Updated module names, idents, : 
3 34 $026 : copyright dates. Changed require files to BLISS library. : 
: 55 0054 1— ; 


Fixed obscure bug with numbered footnotes. 


ina tnenpestnsenincineamintaibiploniaitiannsestuiditiansdnaiaenirteittnaiieamtngpantiih 
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ig T erforms outputting of footnotes -S$ep-1984 00:33:4 AX-11 Bliss-32 V4.0-74 P 

VO4-000 Rodute Level Declarat ons 13-808- 1382 99: 6:2 RUNOFF .SRCJFOOOUT.BLI; nage (33 

: 34 4 ] RSBTTL "Module Level Declarations’ : 
: 1 | INCLUDE FILES: : 
; @& 6 8 1! 3 
3 61 82 1 LIBRARY 'NXPORT:XPORT'; ' XPORT Library . 
: 6¢ 989 ! REQUIRE ‘REQ:RNODEF'; ' RUNOFF variant definitions ; 
; 64 U 136 1 ZIF DSRPLUS X THEN 3 
: o2 U 182 i hea REQ:DPLLIS'; ' DSRPLUS BLISS Library : 
: 67 195 1 LIBRARY "REQ:DSRLIB’; ! DSR BLISS Librar ; 
: 68 196} Hi : 
oe 197 1 3 
3 70 198 1! 3 
3 71 0199 1 ! EXTERNAL REFERENCES: 3 
3 if 0200 1! 3 
3 7 0201 1 EXTERNAL LITERAL ; 
3 74 0 ¢ 1 RINTES : UNSIGNED (8); $ 
cc. 2. 0203 1 3 
; 76 0204 1 EXTERNAL LITERAL 3 
Pe cs 0205 1 RNF ILE; ‘Error messages : 
3 78 0206 1 3 
3 79 0207 1 EXTERNAL 3 
$ 80 0208 1 FNCT : FNCT_DEFINITION 3 
; Bl 0209 1 FNISIZ : FN-INT_SIZE_ DEFINITION, ; 
3 a¢ 0210 1 FOOREC : FOOREC DEFINITION, i 
; 8 O21) 1 GCA : GCA_DEFINITION, F 
3 84 0 \¢ 1 MRA : REF FIXED_STRING, : 
3; 85 0213 1 PHAN : PHAN_DEFINITION, 3 
3 86 pete 1 TSF : TSF_DEFINITION; 3 
3 44 0215 1 3 
3 8 0216 1 EXTERNAL 3 
; 89 0217 1 FOOMRA : FIXED_STRING ‘Substitute MRA. $ 
: 90 Oei8 | FOOTSF : VECTOR CTSF_SIZE; iSubstitute TSF area : 
. § 0220 1 EXTERNAL 3 
: 9 0221 1 FOHMRA, $ 
; 8556 1 FOHTSF; $ 
3 95 855 1 g 
; 96 U 0224 1 IF DSRPLUS XTHEN PF 
5 97 U 855¢ 1 EXTERNAL ; 
3 98 U 8s § 1 FRA : FIXED_STRING; é 
; WW U 0227 1 3 
; 100 U 8 8 1 EXTERNAL ROUTINE : 
3 101 U 1 LOUT; $ 
§ 106 0230 1 : 
s 10 8 1°#1 ; 
: 104 § 1 3 
3; 105 1 ERMS 3 
: 106 4 1 FOOFIL, : 
; 107 > <9 OUTLIN, 3 
3; 108 6 1 OUTPAS; 3 
: 109 0237 1 : 


x 

EXTERNAL ROUTINE 
| 
| 
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ZSBITL ‘body of routine’ 
GLOBAL ROUTINE fooout (OUTPUT_COUNT) : NOVALUE = 
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14 
FUNCTIONAL DESCRIPTION: 


FOOOUT outputs as many footnotes as it is requested to do. for each 

footnote, all it does is read the appre riate number of TSF/MRA pairs 

from the footnete file, and calls OUTLIN to process the information. 

ihe om er of TSF/MRA sets for any particular footnote is stored at 
nl. 


FOOOUT also takes care of index entries that it finds. The transaction 
numbers are remapped into a different set, so that they get merged with 
entries from the main body of the document. 


After FOOOUT has output the footnotes it's supposed to output, it 
leaves the file open. It does not close the file, or attempt to clean 
it up in any way. 


| 
| 
FORMAL PARAMETERS: 
| 


OOCCCOCOOOCOCCOCOOCOCOOCOoO 


OUTPUT_COUNT = Number of footnotes to be output. 
IMPLICIT INPUTS: None 
! IMPLICIT OUTPUTS: None 
ROUTINE VALUE: 
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COMPLETION CODES: None 
SIDE EFFECTS: None 
BEGIN 
LOCAL 


COUNT 
FOO_FIRST_XTN, 
HOLB_PAGING 


dS NINN SSS SDS DOD DD IIIT BS 


POPOIPOPIPOPIPIPNYINIPIPONPININIPY NP PoNyNoNny 


ee ew lolololololololololololo! 


MAP_FIRST_XIN, 
STATUS; 
iad sso LEQ 0 ! If this is a meaningless call, 
RETURN ! ignore it. 
LSE cin ! Otherwise, check the validity of the request 


NAMES WN 0 COONAN 0 OONAU EWN @ OOD NOU EWN COONS wr 


IF ,OUTPUT_COUNT GTR .FNCT_READY ! If the user asked for more 
THEN ! footnotes to be output than are 


WN 0 OONOAUE WN O OONA UE WN OO OODNAUES WN OO ONOUESWN OO ONOULS Wr 


PN te PUP ITT BS BS BS BE BE BE EA AWW Popp nonunonong @ 2 SS Ss OS SS es 
w 
WINANS & & BANANA IPUPINPINININPINPINININID) 9 


OOOO OOOO 00000000 C000 


COOCOOCOoCoOoOoO 
POPOPoPoONPoNoNononononofyfors 


8 BEGIN ie arzady to be output, 

9 ERMS (RNFILE, CHSPTR (UPLIT (*FOOOUT")), 6); ! report the error 
COUNT = .FNCT_READY; : and use the real count instead. 
$ ELSE ! Otherwise, setup to output the # 
Z COUNT = .OUTPUT_COUNT; : the user requested. 


F 
V 


4-000 


WONAOVEWN —OOONOULS WN OOM 


MONOMONONONONONURYD — st 2 a a 
ONOULS WR 


2-8 3 MQOODOOOCOCOCOOOOOOwOO 0909090909 00 0009 III 
RoPoORONUN => SSSSSFz css oO SSLsSee Co CONN ANNNNOO 


PWN —OODONOUES WN oO 
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| 
: 
; 
: 
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<IF 


F 12 
i f f -Sep- $53: - - -0- 
putt ng of footnotes 1 ge 1386 90: 33:48 AX-11 Otis 32 v4.0-74 


RUNOFF . FOOOUT.BLI; 
END; 

! NOTE: The ghonge to not using geet for footnotes necessitated changing a 

! test for ,FNPOOL. This change MAY have reintroduced an old bug from 

! either # §20 or # 025. check for it and beware. 

! RUNOFF V2(1), FN IDENT 008; 9-2-1980. kad. 

IF FOOFIL (FOO_OPIN) NEQ FOO_NORMAL 

THEN 


BEGIN ! Can't read back footnotes: give up and forget them. 
FOOFIL (FOO_CLOS); 

FOOFIL (FOO_DELE); 

FNCT_COUNT = = Q; 

FNCT_READY = Q; 

FNCT_WAITING = Q; 

FNCT_OLD = 0; 

RETURN 

END; 


'The footnote file was opened successfully. 
FNCT_EXPANDING = TRUE; 'Signal the fact that footnotes are being expanded. 
HOLD_PAGING = .PHAN_PAGING; 'Go into non-paging mode to 

PHAN_PAGING = FALSE; ‘avoid spurious page breaks. 

'Use the footnote working areas to save results in. 

FOHTSF = .TSF; 'Save current status. 

FOHMRA = .MRA; 

TSF = FOOTSF; 'Switch to other working area. 

MRA = FOOMRA; 
FOO_FIRST_XTN = 0; 
MAP_FIRST_XTN = 0; 


DSRPLUS ZTHEN 
If outputting numbered footnotes, first output a line of dashes. 
if .FNCT_NUMBERING 
THEN 
BEGIN 
i Initialize fixed string. 
FS_INIT (MRA) ; 
Write dashes into the fixed string. 


iNCR 1 FROM 1 TO 15 DO 
FS_WCHAR (MRA, %C'="); 


‘Initialize transaction number 


! Update the appropriate counts. 


SF_INT_HL = 15; 
SFTEXT“HL = 15; 
SFINTIVL = 0; 


1 
i 
' 
T 
T 
! Put out the Line as OUTLIN does. 


Pp 5 
age 
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erforms outputting of footnotes 18-56 -1984 :33:4 AX-11 Bliss- 4.0-74 
’ 12xge8=138e 99:32:58 Bees onouT Ss dea 


ody of routine 
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WAWANWWNWNAWNNWNAAANWANAAWANNWWN 


DOO O000 0 OO 0000000909 090909 09 NINN NNN NN NNO OO 


PAA 
DWNO MEW ODO NOME WN OO NOU FUN ODo0 Wer oan woo 


PAE SEPP EEE 
WN —O OCONAUNE WN OVONOUEWNR"OOONOu 


MOPOPOPOPIPONIPONINOPoNOPoNy 


AONMMNNIUI 


Cure =O Oo Oe 
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~ ANN 
~N , _ 


SISARAW oS 


>, 

- RUNOFF. SRCJFOOOUT.BLI; (4) 

FS_INIT (FRA); | 

GCA_LINE_PEND = 0; 

LOUT (); | 

END; 

'Now actually read back the records. 
INCR I FROM b TO (.COUNT = 1) DO 

wing TO .FNISIZ C.FNCT_OLD + .1] DO '(J is a dummy counter, not really used anyw 


N 
pecans which kind of record is coming: a TSF/MRA pair, or a ‘pass through" 
STATUS = FOOFIL (FOO_RHDR); 
IF STATUS NEQ FOO_NORMAL 
THEN 


'Exit loop if record can't be read. 
EXITLOOP; 


'Is what's conte a TSF/MRA pair, or is it ‘‘pass through'’ information? 
TF yr FOOREC MAJOR. TYPE EQL F OREC_MAJ_PASS 


pearect “pass through" information to the appropriate destination 


'First read the ‘‘pass through" information 
STATUS = FOOFIL (FOO_PREAD); 


'Make sure the read worked. 
nn NEQ FOO_NORMAL 


!Information couldn't be read. !Quit processing. 
EXITLOOP; 


'Map transaction number, if any. 
A cin ae GTR 0 


iris pass thru record contains a transaction number. Remap it into something else. 
IND 
PASS_THRU_RECORD = .FOOREC_ADDRESS : VECTOR; 
'Note: Never change transaction numbers that are zero. 
if gg'P ASS_ THRU RECORD C.FOOREC_XTN_PTR - 1] NEQ 0 
BEGIN 
IF .FOO_FIRST_XTN EQL 0 
THEN 


‘Establish start of mapping from temporarily assigned 
‘transaction numbers to the normal set. 


BEGIN 
MAP_FIRST_XTN = .GCA_NORMAL_XTN; 


a “ stablish Y( 
FOO_FIRST_XIN 
END; 


1E 1). 
~PASS_THRU_RECORD C.FOOREC_XTN_PTR - 1]; ‘Establish X(1). 


'Translate the temporary transaction number assigned 
'to this pass thru record. 
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p-1984 00:33: AX-11_ Bliss-32 v4.0- 
71984 99:08:38 RUNOFF ..SRCJFOOOUT.BL 
ubstituting the current Y(1) 

TN) for the given X(1). 

s bumped, thereby giving a 

such record, any. 

EC_XTN_PTR = 1] = .GCA_NORMAL_XTN; 
ORMAL_RTN + 1; 


ze ean 


1 

1 
'This is done by simpl 
: Normal x 
‘Then, GCA_NORMAL_XTN™ i 
'new Y or nex 
PASS _THRU_RECORD C. : ~ 


OUTPAS (.FOOREC_RECORD SIZE 
oo .FOOREC_MiNOR_T 


th TSF/MRA information to be processed, so get it and process it. 
FOOFIL (FOO_READ); 


'Make sure the read worked. 
4 STATUS NEQ FOO_NORMAL 


'Information couldn't be read. !Quit processing. 
EXITLOOP; 


'See if this record has ap tnt to do with indexing. 

'If so, the record either contains an entry for the index, 
‘or else it contains text that refers to something in the 

he (or the index refers to it, depending on your point of 
‘view. 

' 


, sFOOREC_ADDRESS, .FOOREC_XTN_PTR, 
YPE) 


‘Records containing index entries always occur before the 
‘record to which they apply; each record describes one 
pentry. Further, each index entry has associated with it 

'a unique number, TSF_FIRST_XTN. These transaction numbers 
‘are strictly increasing from record to record. Assume that 
‘there are n such records, and let the transaction numbers 
ibe designated by X(1), X(2), .... X(n). 


'Records which refer to index entries come after the incex 
‘entry records; ae are chained to the index entries by 
‘having the transaction numbers recorded in the corresponding 
‘TSF. TSF_FIRST_XTN will have the value X(1), and TSF_LAST_XTN 
rwill have the value X(n). 

'The previes is that X(1).....X(n) cannot be directly used 
'by the routine ASGXTN (which is in the module XTN). That 
‘is because the association of transaction numbers to pages 
‘requires fhag the transaction numbers passing gneougn ASGXTN 
'be steedi ty ncreasing, with no gaps, FOR THE ENTIRE FILE. 
'Now, X(1).....-X(n) are steadily increasing, but enty 

‘for the footnote. However, they can be mapped into the 
'"correct’’ set, which is accomplished here. 

'Note that the new set will be designated by Y(1)......¥(n). 
‘Further, Y(1) is guaranteed to be GCA_NORMAL_XTN. 

Hg oe of BRST AIM NEQ 0 
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erforms outputting of footnotes b-§ -1984 :33:4 AX-11 Bliss-32 V4.0-74 
ody of routine . : =300 138% 99: 33:3 RUNOFF SRE SF OROUT OL fs 


'This_ record has something to do with indexing. 
Sag? wes 


'Process index entry. 
BEGIN 


169 
r 5 
4 
471 
tts IF .FOO_FIRST_XTN EQL 0 
47 THEN 
474 ‘Establish start of mapping from temporarily assigned 
of? gi coneaction numbers to the normal set. 
139 MAP_FIRST_XTN = .GCA_NORMAL_XTN; {Escopl tah Y(1). 
2f8 FOO_FIRST_XTN = .TSF_FIRST_RIN; !Establish x(1). 
rh 4 END; 
481 ‘Translate the temporary transaction number assigned 
4 § 'to this index entry into a normal one. 
04 'This is done by picoly substituting the current Y‘41) 
0484 ‘(which is GCA_NORMAL_XTN) for the given X(1). 
0485 'Then, GCA_NORMAL_XTNis bumped, thereby giving a 
O686 ‘new Y(1) Tor the next index entry, if any. 
bee TSF _FIRST_XTN = .GCA_NORMAL_XTN; 
488 TSF-LAST_RTN = .GCA_NORMAL_XTN; 
489 GCA-NORMAL_XTN = .GCA-NCRMAL-XTN + 1; 
0490 END 
0491 ELSE 
049 ‘Process reference to index entry. 
049 ‘Notice that earlier, the starting X(1) and Y(1) were 
‘established. But that was for the start of the 
0495 ‘footnote, not for the current record. In the meantime, 
0496 ‘several sets of index entries and references may have 


i pene through here. And there is no wor. t° separate them. 


0498 hat means you can't simply use MAP_FIRST_XIN as the 
499 'new Y(1). 

500 BEGIN 

50 LOCAL 

20 XTN_OF FSET; 

0 ‘Compute the gap between the X(1) on this record 


‘and that at the start of the footnote processing. 
'XTN_OFFSET, the result, will be zero for the very first 
‘record that comes through. 

XTN_OFFSET = .TSF_FIRST_XTN = .FOO_FIRST_XTN; 


'Now, compute the desired Y(n). 
'The value MAP_FIRST_XTN+XTN_OFFSET gets you the Y(1) 
‘you need. The value TSF_LAST_XTN - TSF_FIRST_XTN gets 


‘you ‘'n"’~. 
1SF-LAST “XIN = .MAP_FIRST_XTN + .XTN_OFFSET + (.TSF_LAST_XTN = .TSF_FIRST_XTN); 


'This is left as an exercise for the reader. 
TSF_FIRST_XTN = .MAP_FIRST_XTN + .XTN_OFFSET; 


‘As an additional exercise prove that it's 

inot necessary to clear FOO_FIRST_XTN now, or Later; 
‘Further, show that it doesn't matter whether or 
‘not you do clear it. Using the results of these 
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12 
erforms outputting of footnotes 1b-5e -1984 00:33:4 AX-11 Bliss-32 V4.0-74 
ody of routine ° 1 ~300n 138% 9: 6:2 RUNOFF. SRCTFOOOUT_BLI: 
gogere tens simplify this block of code. 
‘Write out the record. 
—— (0); ‘(Parameter is meaningless in this case). 
END; 
TSF = .FOHTSF; 'Restore interrupted status. 


PHAN_PAGING = .HOLD_PAGING 

FNCT_READY = .FNCT_READY = .COUNT; 'Count off the footnotes that have been output. 

FNCT_COUNT = .FNCT_COUNT = .COUNT; 'Count off the footnotes that have been output. 
OLD = .FNCT_OLD + .COUNT; ‘Update count of obsolete footnotes. 

FNCT_EXPANDING = FALSE; 'No Longer expanding footnotes 


'Get rid of the work files if there are no more footnotes to be output. 
hea mat LEQ 0 


1ot), eeenenes have been output. 
Soe GS8E08) ctgraetttet 
: ‘and delete it. 
FNCT_OLD ~ = 0; ‘And clean up the tables a bit. 
FNCT_READY = 0; 
FNCT-WAITING = 0; 
END; 
END; 'End of FOOOUT 


IDENT \v04-00 
-PSECT S$PLITS,NOWRT,NOEXE ,2 
00 00 54 55 4F 4F 4F 46 00000 P.AAA: .ASCII \FOOOUT\<0><0> 
-EXTRN RINTES, RNFILE, FNCT 
-EXTRN FNISIZ, FOOREC, GCA 
EX PHAN, TSF, FOOMRA 


4 
“EXTRN FOOTSF, FOHMRA, FOHTSF 
“EXTRN ERMS, FOOFIL, OUTLIN 

“EXTRN OUTPAS 


-PSECT SCODES,NOWRT,2 


-TITLE FOOOU Brrreren outputting of footnctes 
DEN 000\ 


OFFC 00000 ~ENTRY PooOUT . Save R2,R3,R4,R5,R6,R7,R8,R9,R10,- 

58 00000000G EF 9 0 MOVAB FNCT+4, R11 
3 06 AC Ht 8008 MOVL OUTPUT_COUNT, RO 

01 14 4 BGTR 1$ 

04 F RET 

68 50 01 19 18: CMPL RO, FNCT+4 

1A 15 1 BLEQ 2$ 

06 dD 1 PUSHL #6 


K 12 
F T erforms outputting of footnotes 16-Sep-1984 00:33:4 AX-11 Bliss-32 V4.0-74 Page 10 
VOs—000 ody of routine 12-8087 382 99: 6:2 RUNOFF .SRCJFOOOUT.BLI; ° (4) 
99000000" F 9F 00017 PUSHAB P.AAA : : 
G i DD 0001 PUSHL #RNFILE : | ; 
C00000006 gf 3 F 0 : CALLS #3, ERMS ; : 
? 8 p A MOVL FNCT#4, COUNT : 0290 ; 
57 D0 : 3: MOVL RO, COUNT : $8 : 
1 0D $: PUSHL : 2 : 
000000006 Ff 1 Ff CALLS #1, FOOFIL : : 
9 3 0 e or as ; 
5 DD 0004 PUSHL @# + 0305 ; 
000000006 EF 1 FB 8 CALLS #1, FOOFIL ; : 
6 DD 0004 PUSHL t 0306 : 
060000006 EF 1 FB 0004 CALLS #1, FOOFIL ; : 
FC AB 7C 0005 CLRG = FNCT + 0307 ; 
08 AaB 7C 903 CLRQ = FNCT#12 : 0310 : 
04 00058 RET : 0304 : 
14 AB 01 og 0059 4$: MOVL #1, FNCT+24 : 0315 3 
5A 000000006 FF D 9030 MOVL § @PHAN+40, HOLD_PAGING : 316 : 
000000006 FF D4 00064 CLRL § @PHAN+40 : 031 : 
000000006 EF 900000006 EF 00 006A MOVL TSF, FOHTSF : 0319 : 
000000006 EF 000000006 EF 00 00075 VL MRA, FOHMRA ; 0320 : 
S588888 EF SOBBBBBBE EF SE EREES RAR FO0NS)- te fe) | 
5 D4 00096 CLRL FOO_FIRST_XTN : $358 ; 
53 D4 00098 CLRL §MAPTFIRST~XTN : 0324 : 
54 o4 CE 9009A MNEGL Re : 0359 : 
7 11 0009D BRB ; 3 
50 54 08 AB C1 OO09F 5$: ADDL3 ENCT #12, 1, RO : 0360 : 
58 000000006EF 40 D0 SOA MOVL FNISIZCROJ, R8 : : 
0080 if OOAE BRW 11$ ; : 
08 OD 90081 63: PUSHL #8 > 0364 : 
000000006 Ef gi FB 0083 CALLS #1, FOOFIL : : 
9 0 DO OOOBA MOVL RQ, STATUS : : 
32 D4 000BD CLRL oR : 0366 : 
01 5 D4 OOBF CMPL STATUS, #1 : : 
03 13 000C2 BEQL «8S : 3 
2 06 00C4 INCL Re : : 
7 00D1 31 000C6 7$ BRW 1 : 0369 : 
02 000000006 EF 01 000C9 8$ CMPL - FOOREC, #2 : 0372 : 
1 12 00000 BNEQ 1 ; : 
9 DD 00002 PUSHL # : 0377 : 
000000006 Ff 1 FB 6 D4 CALLS #1, FOOFIL : : 
9 0 D DB MOVL RO, STATUS F : 
01 33 D4 aoe cMPL TATUS, #1 : 0380 : 
51 000000006 bh 06 OeS mov FOOREC+12, R1 ; 0386 3 
50 00000000GFF4) p Oe¢ MOVAL af OOREC*16CR1J, RO ; 03% : 
1D 1 7 BEQL 10$ : 3 
36 D 9 TSTL FOO_FIRST_XTN : 0398 : 
B 1 FB BNEQ 3 3 
3 000000006 EF D FD MOVL §§ GCA+168, MAP_FIRST_XTN : 0403 : 
6 Fe AO D 104 MOVL 4 (RO) FOO FARST RIN > 0404 : 
FC AO 000000006 EF DO 00108 9S: MOVL  GCA+168, -4TRO) > 0413 ; 
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‘End of module 


491 bytes, Routine Base: S$CODE$ + 0000 


; Routine Size: 


23 


voe~00 Body of routine 2 “ootnotes S198 79:08:38 RUNOFF °SReSFoo0UT- OL: ee , 


Lexenes/CPU-Rin: 15660 
ponety Used: 119 pages 
Compila 


tion Complete 


| ! 

| ‘ 

| ‘ 

‘ 

: PSECT SUMMARY 
: Name Bytes Attributes 
: SPLITS NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, Soften ed b Tig b ohh 1 ‘ 
: SCODES 491 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
‘ 

: Library Statistics 
; qcanesae SyGhels cocecene Pages Processing , 
: File Total Loaded Percent Mapped ime 
: _$255$DUA28:([SYSLIBIXPORT.L32;1 9 252 :00. 
; RTE FRUNOFE? SRCIDSRLIB.L32;1 1348 a : 86 $0:00:3 
‘ 

‘ 

‘ 

‘ BLISS/CHECK=(FIELD, INITIAL ,.OPTIMIZE)/LIS=LIS$:FOOOUT/OBJ=0BJ$:FOOOUT MSRC$:FOOOUT/UPDATE=(ENH$:F OOOUT) 
Size: 491 code + 8 data bytes ‘ 
Run Time: 00:10.3 | 
Elapsed Time: 00:31.4 | 
Lines/CPU Min: 229 \ 

‘ 

‘ 


; COMMAND QUALIFIERS 
| 
| 
| 
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